<%
dim rsskin,sqlskin,tskinid,skin_css,body_label
sqlskin="select * from skin where isdefault=true"
set rsskin=server.createobject("adodb.recordset")
rsskin.open sqlskin,conn,1,1
if rsskin.bof and rsskin.eof then
	rsskin.close
	sqlskin="select top 1 * from skin"
	rsskin.open sqlskin,conn,1,1
	call main()	
else
	call main()
end if
rsskin.close
set rsskin=nothing

sub main()
	body_label=rsskin("body")
	skin_css=split(rsskin("skin_css"),"|||")
%>
<style type="text/css">
<%=skin_css(0)%>
body
{
<%=skin_css(1)%>
}
td
{
<%=skin_css(2)%>
}
input
{
<%=skin_css(3)%>
}
button
{
<%=skin_css(4)%>
}
select
{
<%=skin_css(5)%>
}
.border
{
<%=skin_css(6)%>
}
.border2
{
<%=skin_css(7)%>
}
.footbg
{
<%=skin_css(8)%>
}
.title
{
<%=skin_css(9)%>
}
.tdbg
{
<%=skin_css(10)%>
}
.txt_css
{
<%=skin_css(11)%>
}
.title_lefttxt
{
<%=skin_css(12)%>
}
.title_left
{
<%=skin_css(13)%>
}
.tdbg_left
{
<%=skin_css(14)%>
}
.title_left2
{
<%=skin_css(15)%>
}
.tdbg_left2
{
<%=skin_css(16)%>
}
.tdbg_leftall
{
<%=skin_css(17)%>
}
.title_righttxt
{
<%=skin_css(18)%>
}
.title_right
{
<%=skin_css(19)%>
}
.tdbg_right
{
<%=skin_css(20)%>
}
.title_right2
{
<%=skin_css(21)%>
}
.tdbg_right2
{
<%=skin_css(22)%>
}
.tdbg_rightall
{
<%=skin_css(23)%>
}
</style>
<%
end sub
%>
